home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / n-z / tsmorph / install < prev    next >
Encoding:
Text File  |  1978-11-24  |  3.5 KB  |  203 lines
  1. ; This is the script to install TSMorph
  2. ; $VER: TSMorph-Install 2.0 (28.6.93)
  3.  
  4. (complete 0)
  5.  
  6. (set InstallDir
  7.     (askdir
  8.         (prompt "Where do you want to install TSMorph 2.0?")
  9.         (help @askdir-help)
  10.         (default "Work:")
  11.     )
  12. )
  13.  
  14. (if (> (/ (getversion) 65536) 38)
  15.     (set Kick30 1)
  16.     (set Kick30 0)
  17. )
  18.  
  19. (Set DestDir 
  20.     (tackon InstallDir "TSMorph")
  21. )
  22.  
  23. (Set RexxDir 
  24.     (tackon DestDir "Rexx")
  25. )
  26.  
  27. (Set CursorDir 
  28.     (tackon DestDir "Cursor")
  29. )
  30.  
  31. (Set BrushDir 
  32.     (tackon DestDir "Brush")
  33. )
  34.  
  35. (set @default-dest 
  36.     DestDir
  37. )
  38.  
  39. (makedir
  40.     DestDir 
  41.     (infos)
  42. )
  43.  
  44. (Set Use040
  45.     (= 
  46.         (database
  47.             "cpu"
  48.         )
  49.          68040
  50.     )
  51. )
  52.  
  53. (set Use881
  54.     (askbool
  55.         (prompt "Install 68020/030/68881/2/68040 version")
  56.         (help "There are two versions of the TSMorph-render program. "
  57.                 "One requires both a 68020 or 68030 CPU with a 68881 or 68882 FPU or a 68040. "
  58.                 "The other should run on any processor.")
  59.         (default Use040)
  60.     )
  61. )
  62.  
  63. (complete 10)
  64.  
  65. (if Use881
  66.     (
  67.         (copyfiles
  68.             (prompt "Copying TSMorph program and data files")
  69.             (help @copyfiles-help)
  70.             (source "")
  71.             (dest DestDir)
  72.             (choices "TSMorph" "TSMorph-render.881" "TSMorph.guide")
  73.             (infos)
  74.             (confirm)
  75.         )
  76.         (delete (tackon DestDir "TSMorph-render"))
  77.         (rename (tackon DestDir "TSMorph-render.881")
  78.                   (tackon DestDir "TSMorph-render")
  79.         )
  80.         (delete (tackon DestDir "TSMorph-render.info"))
  81.         (rename (tackon DestDir "TSMorph-render.881.info")
  82.                   (tackon DestDir "TSMorph-render.info")
  83.         )
  84.     )
  85.     (copyfiles
  86.         (prompt "Copying TSMorph program and data files")
  87.         (help @copyfiles-help)
  88.         (source "")
  89.         (dest DestDir)
  90.         (choices "TSMorph" "TSMorph-render" "TSMorph.guide")
  91.         (infos)
  92.         (confirm)
  93.     )
  94. )
  95.  
  96. (if Kick30
  97.     (tooltype
  98.         (dest (tackon destdir "TSMorph.guide"))
  99.         (setdefaulttool "MultiView")
  100.     )
  101. )
  102.  
  103. (complete 30)
  104.  
  105. (makedir
  106.     RexxDir
  107.     (infos)
  108. )
  109.  
  110. (copyfiles
  111.     (prompt "Copying example Rexx scripts")
  112.     (help @copyfiles-help)
  113.     (source "Rexx")
  114.     (dest RexxDir)
  115.     (all)
  116.     (infos)
  117.     (confirm)
  118. )
  119.  
  120. (complete 40)
  121.  
  122. (makedir "ENVARC:TSMorph")
  123.  
  124. (copyfiles
  125.     (prompt "Copying Icons to ENVARC:")
  126.     (help @copyfiles-help)
  127.     (source "")
  128.     (dest "ENVARC:TSmorph")
  129.     (choices "ENV/TSMorph/def_points.info"
  130.              "ENV/TSMorph/def_ilbm.info"
  131.              "ENV/TSMorph/def_iff.info"
  132.              "ENV/TSMorph/def_jpg.info"
  133.              "ENV/TSMorph/def_ppm.info"
  134.              "ENV/TSMorph/def_prefs.info")
  135.     (confirm)
  136. )
  137.  
  138. (complete 50)
  139.  
  140. (makedir "ENV:TSMorph")
  141.  
  142. (copyfiles
  143.     (prompt "Copying Icons to ENV:")
  144.     (help @copyfiles-help)
  145.     (source "")
  146.     (dest "ENV:TSmorph")
  147.     (choices "ENV/TSMorph/def_points.info"
  148.              "ENV/TSMorph/def_ilbm.info"
  149.              "ENV/TSMorph/def_iff.info"
  150.              "ENV/TSMorph/def_jpg.info"
  151.              "ENV/TSMorph/def_ppm.info"
  152.              "ENV/TSMorph/def_prefs.info")
  153.     (confirm)
  154. )
  155.  
  156. (complete 60)
  157.  
  158. (if
  159.     (askbool
  160.         (prompt "Copy GUI files?")
  161.         (help "Select 'Yes' to copy the GUI files. "
  162.               "These files may then be changed to allow you to configure the user interface. "
  163.               "Select 'No' if you do not wish to change the interface.")
  164.     )
  165.     (
  166.         (makedir CursorDir)
  167.         (copyfiles
  168.             (prompt "Copying Pointer files")
  169.             (help @copyfiles-help)
  170.             (source "Cursor")
  171.             (dest CursorDir)
  172.             (all)
  173.             (infos)
  174.             (confirm)
  175.         )
  176.         (complete 70)
  177.         (makedir BrushDir)
  178.         (copyfiles
  179.             (prompt "Copying Gadget files")
  180.             (help @copyfiles-help)
  181.             (source "Brush")
  182.             (dest BrushDir)
  183.             (all)
  184.             (infos)
  185.             (confirm)
  186.         )
  187.     )
  188. )
  189.  
  190. (complete 80)
  191.  
  192. (startup "TSMorph"
  193.     (prompt "Adding assign TSMorph: to " DestDir " in s:user-startup")
  194.     (help @startup-help)
  195.     (command "Assign TSMorph: " DestDir)
  196. )
  197.  
  198. (complete 90)
  199.  
  200. (makeassign "TSMorph" DestDir)
  201.  
  202. (complete 100)
  203.